unit appXmlRequest;

interface

uses  classes, sysutils
    , appMappldXmlObject
;

type

{------------------------------ TMappldXmlRequest }

    {***************************************************************************
    * TMappldXmlRequest
    ***************************************************************************}
    TMappldXmlRequest = class( TMappldXmlObject )
public
    procedure   AfterConstruction(); override;

public //property
    property version   : string index 0 read getStringAttribute write setStringAttribute;
    property ticket    : string index 1 read getStringAttribute write setStringAttribute;
    property sessionId : string index 2 read getStringAttribute write setStringAttribute;

    end;

implementation

{------------------------------ TMappldXmlRequest }

{*******************************************************************************
* AfterConstruction
*******************************************************************************}
procedure TMappldXmlRequest.AfterConstruction();
begin
    inherited;

    FappClassAlias := 'TRequest';
    Fattributes.createFloat( 'v' );
    Fattributes.createFloat( 't' );
    Fattributes.createFloat( 's' );
end;

end.
 